(cua-mode): Deactivate mark when cua-mode is enabled.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 6a0e8a00cdea3f60d49f8c24ae092410d5319226..51b47b104d09f7bf72cc22a527c5b08bf555bed9 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1336,6 +1336,7 @@ paste (in addition to the normal emacs bindings)."
        (delete-selection-mode -1))
     (if (and (boundp 'pc-selection-mode) pc-selection-mode)
        (pc-selection-mode -1))
+    (cua--deactivate)
     (setq transient-mark-mode (and cua-mode
                                   (if cua-highlight-region-shift-only
                                       (not cua--explicit-region-start)